﻿Public Class AboutControl





    'Private Sub VersionandCopyRightInfo_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
    '    Dim wind As New AboutWindow
    '    wind.ShowDialog()


    'End Sub




    'Private Sub ViewLicense_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
    '    Dim wind As New LicenseWindow
    '    wind.ShowDialog()

    'End Sub



    ''' <summary>
    ''' 获取应用程序的版本号。 
    ''' </summary>
    Public ReadOnly Property Version As String
        Get
            Return My.Application.Info.Version.ToString
        End Get
    End Property


 

    ''' <summary>
    ''' 获取与该应用程序关联的公司名称
    ''' </summary>
    Public ReadOnly Property CompanyName As String
        Get
            Return My.Application.Info.CompanyName
        End Get
    End Property

End Class
